<%
oid_fiche = Request.QueryString("oid")
id_departement= Request.Form("id_departement")
nom = Request.form ("nom")
set DataConn= session("ConnexionBDD")
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Dataconn
Set RS= Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "select * from annuaire_reseau,fiches where oid_annuaire = id_annuaire_reseau and oid_annuaire = "&oid_fiche
RS.Open cmdTemp, , 0, 1
if not RS.EOF then
nom = RS("nom")
end if
RS.close
%>
<%=nom%>
Vous êtes membre de
ce réseau : enrichissez la présentation déjà disponible.
5 services vous sont
proposés :
N'hésitez
pas à nous contacter pour plus dinformations à l'adresse suivante
: reseaux@medcost.fr ou
au numéro suivant : 01.42.15.08.08
|
|
|